home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / Haiku Master 1a.cpt / Haiku Master 1a / card_3210.txt < prev    next >
Text File  |  1992-11-01  |  5KB  |  210 lines
  1. -- card: 3210 from stack: in
  2. -- bmap block id: 4000
  3. -- flags: 0000
  4. -- background id: 3528
  5. -- name: haiku
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2004
  11. -- rect: left=78 top=130 right=240 bottom=428
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: verse
  20. ----- HyperTalk script -----
  21. on mouseup
  22.   haiku
  23. end mouseup
  24.  
  25.  
  26. -- part 8 (field)
  27. -- low flags: 01
  28. -- high flags: 2004
  29. -- rect: left=178 top=43 right=70 bottom=332
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 3
  34. -- text size: 12
  35. -- style flags: 768
  36. -- line height: 16
  37. -- part name: 
  38. ----- HyperTalk script -----
  39. on mouseup
  40.   lock screen
  41.   if visible of cd fld brag then
  42.     hide cd fld brag
  43.     hide cd fld brag2
  44.     unlock screen with iris close slow
  45.   else
  46.     show cd fld brag2
  47.     show cd fld brag
  48.     unlock screen with iris open slow
  49.   end if
  50. end mouseup
  51.  
  52.  
  53. -- part 9 (field)
  54. -- low flags: 81
  55. -- high flags: 2004
  56. -- rect: left=73 top=42 right=203 bottom=449
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 3
  61. -- text size: 14
  62. -- style flags: 256
  63. -- line height: 22
  64. -- part name: brag
  65. ----- HyperTalk script -----
  66. on mouseup
  67.   send mouseUp to cd fld id 8
  68. end mouseup
  69.  
  70.  
  71. -- part 10 (field)
  72. -- low flags: 81
  73. -- high flags: 2004
  74. -- rect: left=73 top=112 right=277 bottom=449
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 3
  79. -- text size: 9
  80. -- style flags: 0
  81. -- line height: 12
  82. -- part name: brag2
  83. ----- HyperTalk script -----
  84. on mouseup
  85.   send mouseUp to cd fld id 8
  86. end mouseup
  87.  
  88.  
  89. -- part 6 (button)
  90. -- low flags: 00
  91. -- high flags: A004
  92. -- rect: left=14 top=304 right=327 bottom=88
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 3
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Library
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   visual zoom in
  104.   go library
  105.   if the result is empty then
  106.   else
  107.     go home
  108.   end if
  109. end mouseUp
  110.  
  111.  
  112. -- part 4 (button)
  113. -- low flags: 00
  114. -- high flags: A004
  115. -- rect: left=95 top=304 right=327 bottom=183
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 3
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Edit Words
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   goEdit
  127. end mouseUp
  128.  
  129.  
  130. -- part 3 (button)
  131. -- low flags: 00
  132. -- high flags: A004
  133. -- rect: left=207 top=292 right=331 bottom=300
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 3
  138. -- text size: 12
  139. -- style flags: 256
  140. -- line height: 16
  141. -- part name: Haiku
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   haiku
  145. end mouseUp
  146.  
  147.  
  148. -- part 2 (button)
  149. -- low flags: 00
  150. -- high flags: A004
  151. -- rect: left=323 top=304 right=327 bottom=413
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 3
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Save Haiku
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   put cd fld verse &return &return after cd fld saved of cd saved
  163. end mouseUp
  164.  
  165.  
  166. -- part 7 (button)
  167. -- low flags: 00
  168. -- high flags: A004
  169. -- rect: left=419 top=304 right=327 bottom=497
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 3
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: See Saved
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   seeSaved
  181. end mouseUp
  182.  
  183.  
  184. -- part contents for card part 8
  185. ----- text -----
  186. Haiku Master
  187.  
  188. -- part contents for card part 9
  189. ----- text -----
  190. andrew stone
  191. bmug/glassell Park/ASTONE:GEnie
  192. 505-345-4800
  193.  
  194. -- part contents for card part 10
  195. ----- text -----
  196. "Haiku" creates a new haiku.
  197.  
  198. Edit words takes you to card where words are stored.
  199.  
  200. Save Haiku puts haiku after others on the saved card: go there with "See Saved" button.
  201.  
  202. ‚Äîmodified &distributed with "If Monks had Macs..."  with Andrew's permission.  
  203.  
  204. ¬© Andrew Stone 1988 & modifications  ¬© Brian Thomas 1989.  No commerical or Educorp distribution or any distribution fees can be charged other than from registered Macintosh Users Groups.  This is Haiku Master version 2.2
  205.  
  206. -- part contents for card part 1
  207. ----- text -----
  208.  bogus sensuous vessel
  209.  tastes dreadful fire
  210.  strange situation.